inherited FPesquisaProduto: TFPesquisaProduto
  Left = 216
  Top = 120
  Caption = 'Pesquisa Produto'
  ClientHeight = 371
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Height = 330
    object Label7: TLabel [0]
      Left = 5
      Top = 166
      Width = 65
      Height = 65
      Caption = 'Classifica'#231#227'o '#13#10#13#10'do'#13#10#13#10'Produto'
    end
    object Label5: TLabel [1]
      Left = 5
      Top = 121
      Width = 54
      Height = 13
      Caption = 'Fornecedor'
    end
    object Label1: TLabel [2]
      Left = 5
      Top = 49
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object Label2: TLabel [3]
      Left = 5
      Top = 86
      Width = 88
      Height = 13
      Caption = 'Descri'#231#227'o Entrada'
    end
    object Label3: TLabel [4]
      Left = 77
      Top = 49
      Width = 52
      Height = 13
      Caption = 'Refer'#234'ncia'
    end
    inherited DBGrid1: TDBGrid
      Top = 309
      Height = 0
      TabOrder = 10
      Visible = False
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAOENTRADA'
          Title.Caption = 'Descri'#231#227'o Entrada'
          Width = 215
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'REFERENCIA'
          Title.Caption = 'Refer'#234'ncia'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UNIDADE'
          Title.Caption = 'Unidade'
          Width = 45
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 309
      TabOrder = 11
    end
    object DBLCBNivel1: TDBLookupComboBox
      Left = 75
      Top = 166
      Width = 241
      Height = 19
      Ctl3D = False
      KeyField = 'CLASS_PROD_CODIGO'
      ListField = 'CLASS_PROD_DESCRICAO'
      ListSource = DSNivel1
      ParentCtl3D = False
      TabOrder = 5
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBNivel2: TDBLookupComboBox
      Left = 91
      Top = 190
      Width = 241
      Height = 19
      Ctl3D = False
      KeyField = 'CLASS_PROD_CODIGO'
      ListField = 'CLASS_PROD_DESCRICAO'
      ListSource = DSNivel2
      ParentCtl3D = False
      TabOrder = 6
      OnEnter = DBLCBNivel2Enter
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBNivel3: TDBLookupComboBox
      Left = 108
      Top = 214
      Width = 241
      Height = 19
      Ctl3D = False
      KeyField = 'CLASS_PROD_CODIGO'
      ListField = 'CLASS_PROD_DESCRICAO'
      ListSource = DSNivel3
      ParentCtl3D = False
      TabOrder = 7
      OnEnter = DBLCBNivel3Enter
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 5
      Top = 134
      Width = 394
      Height = 19
      Ctl3D = False
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      ParentCtl3D = False
      TabOrder = 4
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object RGTipo: TRadioGroup
      Left = 5
      Top = 239
      Width = 169
      Height = 61
      Caption = '  Tipo  '
      Columns = 2
      Ctl3D = False
      ItemIndex = 2
      Items.Strings = (
        'Mercadoria'
        'Servi'#231'o'
        'Todos')
      ParentCtl3D = False
      TabOrder = 8
    end
    object RGNatureza: TRadioGroup
      Left = 182
      Top = 239
      Width = 216
      Height = 61
      Caption = '  Natureza  '
      Columns = 2
      Ctl3D = False
      ItemIndex = 4
      Items.Strings = (
        'Compra e Venda'
        'Compra'
        'Venda'
        'Terceiros'
        'Todos')
      ParentCtl3D = False
      TabOrder = 9
    end
    object RGTipoRelatorio: TRadioGroup
      Left = 1
      Top = 1
      Width = 409
      Height = 42
      Align = alTop
      Caption = '  Apresenta'#231#227'o do  Relat'#243'rio  '
      Columns = 2
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Classifica'#231#227'o '
        'Fornecedor')
      ParentCtl3D = False
      TabOrder = 0
      OnClick = RGTipoRelatorioClick
    end
    object ECodigo: TEdit
      Left = 5
      Top = 62
      Width = 68
      Height = 19
      Ctl3D = False
      MaxLength = 9
      ParentCtl3D = False
      TabOrder = 1
      OnKeyPress = ECodigoKeyPress
    end
    object EReferencia: TEdit
      Left = 77
      Top = 62
      Width = 121
      Height = 19
      Ctl3D = False
      MaxLength = 20
      ParentCtl3D = False
      TabOrder = 2
    end
    object EDescricaoEntrada: TEdit
      Left = 5
      Top = 99
      Width = 394
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select Prod_Codigo as Codigo, Prod_DescricaoEnt as DescricaoEntr' +
        'ada ,Prod_referencia as referencia, Prod_Tipo, '
      
        'Prod_UnidSaida as Unidade,Forn_Razao as Fornecedor,Prod_Natureza' +
        ' as Natureza,Prod_ValorCompra as PrecoCompra,Prod_Valor as Preco' +
        'Venda'
      'from  produto'
      'Left join produtofornecedor on Prod_codigo = PRODFORN_produto'
      'Left join Fornecedor on Forn_codigo = PRODFORN_FORNECEDOR')
    Left = 240
    Top = 335
  end
  inherited DSPesquisa: TDataSource
    Left = 280
    Top = 335
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 336
    Top = 327
  end
  object DSNivel1: TDataSource
    Left = 40
    Top = 324
  end
  object DSNivel2: TDataSource
    Left = 112
    Top = 324
  end
  object DSNivel3: TDataSource
    Left = 184
    Top = 332
  end
end
